<?	
	/* Se asegura que el archivo es incluido por el index */
	defined( 'LOAD_MODULE_ACTION' ) or die( 'No esta permitido el acceso directo a ' . __FILE__ );  
		$this->oTmpObject = new Poesia_libre_usuario_frm( $this );
	
	class Poesia_libre_usuario_frm extends Frm
	{
	function setValue ( $ncPoesiaLibre, $ncOrden )
		{
			$cSql = "SELECT  ncUsuario,  cPoesia,  dAlta,  nPuntaje
				FROM gtPoesiaLibreUsuario
				WHERE ncPoesiaLibre = '$ncPoesiaLibre' AND  ncOrden = '$ncOrden' ";
			$aDatos = $this->oDatabase->getArray($cSql);	
			$this->setFieldsArray ( $aDatos );
		}
	function Poesia_libre_usuario_frm( &$oModule )
		{
			$this->Frm( $oModule );
			//Crea los Objetos de los campos de edicion
			$this->aFields['ncPoesiaLibre']	= new InputList( "Poesia libre", "ncPoesiaLibre" );
			$this->aFields['ncOrden']				= new Input("Codigo","ncOrden", '', false, true);
			$this->aFields['nPuntaje']			= new InputList( "Estado", "nPuntaje" );
			$this->aFields['ncUsuario']			= new InputLookUp( "Usuario", "ncUsuario" );			
			$this->aFields['cPoesia']				= new InputText( "Poesia", "cPoesia" );
			$this->aFields['dAlta']					= new InputDate( "Alta", "dAlta" );
		}	
	function initializeForm()
		{
			// Si viene el Ubicacion hace el retrieve
				if ( $this->isRetrievable() && $this->aFields['ncPoesiaLibre']->getValue() && $this->aFields['ncOrden']->getValue() )
				{
					$this->setValue( $this->aFields['ncPoesiaLibre']->getValue(), $this->aFields['ncOrden']->getValue() );
				}
			// Configura el Titulo
				$this->setLabel( "Poesia libre - Usuario" );	
			return true;
		}
	function initializeField( $cField , &$oField )
		{			
			switch ( $cField )
			{
					case 'ncPoesiaLibre':
						$cSql = "SELECT ncPoesiaLibre, cdPoesiaLibre FROM gtPoesiaLibre";
						$oField->setMatrix($this->oDatabase->getMatrix($cSql));
						$oField->setMandatory($this->isMandatory());
					break;
					case 'nPuntaje':
						$cSql = "SELECT ncEstadoPublicacion, cdEstadoPublicacion FROM gcEstadoPublicacion";
						$oField->setMatrix($this->oDatabase->getMatrix($cSql));
						$oField->setMandatory($this->isMandatory());
					break;
					case 'ncUsuario':
						$oField->setForm($this);
						initializeUsuarioGit($oField);
					break;
					case 'cPoesia':
						$oField->setLength(5096);
					break;
			}
 		}
	}
?>